home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / i / imagefxv2.1a.lha / ImageFX / Rexx / Shrink.ifx < prev    next >
Text File  |  1996-03-02  |  895b  |  52 lines
  1. /*
  2.  * $VER: Shrink 1.00.00 (24.9.92)
  3.  *
  4.  * Arexx program for the ImageFX image processing system.
  5.  * Written by Thomas Krehbiel
  6.  *
  7.  * Write out a 20 frame sequence consisting of shrinking the
  8.  * current image buffer.
  9.  *
  10.  */
  11.  
  12. OPTIONS RESULTS
  13.  
  14. GetMain ; IF result = "" THEN EXIT
  15. PARSE VAR result name width height depth
  16.  
  17. RequestFile '"Output basename..."'
  18. IF rc ~= 0 THEN EXIT
  19. output = result
  20.  
  21. CopyToSwap ; Swap
  22.  
  23. BeginBar 'Shrink' ; LockGui ; Redraw Off
  24.  
  25. DO i = 1 TO 20
  26.  
  27.    Message 'Frame' i
  28.  
  29.    SaveBufferAs ILBM output||RIGHT(i,3,'0')
  30.    Swap
  31.  
  32.    Scissors
  33.    Box 0 0 width height
  34.  
  35.    Scale Fast Percent 100-i*3 100-i*3
  36.  
  37.    Swap
  38.    CreateBuffer width height Color Force
  39.    ClearBuffer Force 0 0 0
  40.  
  41.    GetBrush ; IF result = "" THEN EXIT
  42.    PARSE VAR result bwidth bheight bdepth
  43.  
  44.    Point width%2 height%2
  45.    KillBrush ; UnlockGui ; Redraw ; LockGui
  46.  
  47.    END
  48.  
  49. Redraw On ; UnlockGui ; EndBar
  50.  
  51. EXIT
  52.